
use "Propaganda_Experiment_working.dta", clear
global cov Gender Education Income PartyMember Pol_Interest Social_Media Pro_Market_Ideology


// Table C1: Treatment Effects on COVID Policy Support

eststo clear
set more off
local vlist COVID_Policy_Support COVID_Preference_pc
local wd=wordcount("`vlist'")
forv i=1/`wd'{
local dv: word `i' of `vlist'

eststo m`i'_1: reg `dv' hard if control + hard == 1
eststo m`i'_2: reg `dv' hard_hard if control + hard_hard == 1
eststo m`i'_3: reg `dv' soft if control + soft == 1
eststo m`i'_4: reg `dv' soft_soft if control + soft_soft == 1
}
esttab using TableC1.tex, se(3) b(3) r2(3)label star(* 0.05) ///
keep (_cons hard hard_hard soft soft_soft) varlabel(_cons "Constant" hard "Hard" hard_hard "Two-sided Hard" soft "Soft" soft_soft "Two-sided Soft") ///
eqlabel(none) nomtitles mgroups("Policy Support" "Prefer Reopen", pattern(1 1)) replace

// Table C2: Treatment Effects on COVID Policy Support with Controls

eststo clear
set more off
local vlist COVID_Policy_Support COVID_Preference_pc
local wd=wordcount("`vlist'")
forv i=1/`wd'{
local dv: word `i' of `vlist'
eststo m`i'_1: reghdfe `dv' hard $cov if control + hard == 1, ab(Region Age_Group)
estadd local reg "Yes"
estadd local age "Yes"
eststo m`i'_2: reghdfe `dv' hard_hard $cov if control + hard_hard == 1, ab(Region Age_Group)
estadd local reg "Yes"
estadd local age "Yes"
eststo m`i'_3: reghdfe `dv' soft $cov if control + soft == 1, ab(Region Age_Group)
estadd local reg "Yes"
estadd local age "Yes"
eststo m`i'_4: reghdfe `dv' soft_soft $cov if control + soft_soft == 1, ab(Region Age_Group)
estadd local reg "Yes"
estadd local age "Yes"
}
esttab using TableC2.tex, se(3) b(3) r2(3)label star(* 0.05) ///
keep (_cons hard hard_hard soft soft_soft Gender Education Income PartyMember Pol_Interest Social_Media Pro_Market_Ideology) ///
 varlabel(_cons "Constant" hard "Hard" hard_hard "Two-sided Hard" soft "Soft" soft_soft "Two-sided Soft") ///
 stats(reg age N r2, labels( "Region FE"  "Age Group FE" "Observations" "R-squared") fmt(0 0 0 3)) /// 
eqlabel(none) nomtitles mgroups("Policy Support" "Prefer Reopen", pattern(1 1)) replace

// Table C3: Treatment Effects on Willingness to Protest

eststo clear
set more off
local vlist  COVID_Protest Protest_Rightfulness
local wd=wordcount("`vlist'")
forv i=1/`wd'{
local dv: word `i' of `vlist'

eststo m`i'_1: reg `dv' hard if control + hard == 1
eststo m`i'_2: reg `dv' hard_hard if control + hard_hard == 1
eststo m`i'_3: reg `dv' soft if control + soft == 1
eststo m`i'_4: reg `dv' soft_soft if control + soft_soft == 1
}
esttab using TableC3.tex, se(3) b(3) r2(3)label star(* 0.05) ///
keep (_cons hard hard_hard soft soft_soft) varlabel(_cons "Constant" hard "Hard" hard_hard "Two-sided Hard" soft "Soft" soft_soft "Two-sided Soft") ///
eqlabel(none) nomtitles mgroups("Willingness to Protest" "Protest Rightfulness", pattern(1 1)) replace


// Table C4: Treatment Effects on Willingness to Protest with Controls

eststo clear
set more off
local vlist  COVID_Protest Protest_Rightfulness
local wd=wordcount("`vlist'")
forv i=1/`wd'{
local dv: word `i' of `vlist'
eststo m`i'_1: reghdfe `dv' hard $cov if control + hard == 1, ab(Region Age_Group)
estadd local reg "Yes"
estadd local age "Yes"
eststo m`i'_2: reghdfe `dv' hard_hard $cov if control + hard_hard == 1, ab(Region Age_Group)
estadd local reg "Yes"
estadd local age "Yes"
eststo m`i'_3: reghdfe `dv' soft $cov if control + soft == 1, ab(Region Age_Group)
estadd local reg "Yes"
estadd local age "Yes"
eststo m`i'_4: reghdfe `dv' soft_soft $cov if control + soft_soft == 1, ab(Region Age_Group)
estadd local reg "Yes"
estadd local age "Yes"
}
esttab using TableC4.tex, se(3) b(3) r2(3)label star(* 0.05) ///
keep (_cons hard hard_hard soft soft_soft Gender Education Income PartyMember Pol_Interest Social_Media Pro_Market_Ideology) ///
 varlabel(_cons "Constant" hard "Hard" hard_hard "Two-sided Hard" soft "Soft" soft_soft "Two-sided Soft") ///
 stats(reg age N r2, labels( "Region FE"  "Age Group FE" "Observations" "R-squared") fmt(0 0 0 3)) /// 
eqlabel(none) nomtitles mgroups("Willingness to Protest" "Protest Rightfulness", pattern(1 1)) replace


